home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / GENEPROG.ARC / DBFILL.PRG < prev    next >
Text File  |  1985-12-21  |  512b  |  16 lines
  1. *SUBROUTINE DBFILL    3/23/85                      SORTNAME
  2. *
  3. USE GENE
  4. DO WHILE .NOT.EOF()
  5. NAMESORT=TRIM(LAST)+TRIM(FIRST)+TRIM(MIDDLE)+TRIM(NUM)
  6. REPLACE SORTNAME WITH NAMESORT
  7. NAMEFUL=TRIM(FIRST)+" "+TRIM(MIDDLE)+" "+TRIM(LAST)+" "+TRIM(NUM)
  8. REPLACE FULNAME WITH NAMEFUL
  9. SKIP
  10. ENDDO
  11. @ 12,11 SAY "INDEXING IS IN PROGRESS. PLEASE WAIT. "
  12. INDEX ON SORTNAME TO SNINDX
  13. INDEX ON FULNAME TO FNINDX
  14. CLEAR
  15. RETURN
  16. *END OF SUBROUTINE